home *** CD-ROM | disk | FTP | other *** search
/ Transactor / Transactor Disks / disk-12.d64 / cmd wedge.demo (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1985-01-01  |  1005 b   |  39 lines
  1. 10 '
  2. 20 ' command wedge demo
  3. 30 '
  4. 40 ' by frank e. digioia
  5. 50 ' 11/17/85
  6. 60 '
  7. 70 '
  8. 80 print"press any key to start":wait
  9. 90 print:print"key found! ascii"peek(2)
  10. 100 print"touch any key to test list"
  11. 110 wait:list:print:print"list done!"
  12. 120 print"choose a subroutine 1, 2 ,3"
  13. 130 wait:subr=peek(2)-asc("0")
  14. 135 if subr<1 or subr>3 then goto 120
  15. 140 gosub subr*300+50:'computed gosub
  16. 150 print:input"goto 170, 180 or 190";a
  17. 155 ifa<>170 and a<>180 and a<>190 then150
  18. 160 goto a
  19. 170 print"line #170":goto200
  20. 180 print"line #180":goto200
  21. 190 print"line #190"
  22. 200 print"touch any key for restore demo"
  23. 210 wait:data 1,2,3,4,5,6,7,8,9,10
  24. 220 print"data in line 210 printed backwards":print
  25. 230 fori=10to1step-1:restore210,i:reada:printa;:next:print
  26. 240 data "line 240","commas,,,","eoln1"
  27. 250 data "line 250","data line","eoln2"
  28. 260 data "line 260","middle","eoln3"
  29. 270 print:print"choose a data line:"
  30. 280 input"240, 250 or 260";line
  31. 285 if li<>240 and li<>250 and li<>260 then 270
  32. 290 print:print"choose a data element:"
  33. 300 input"1, 2 or 3";de:ifde<1then300
  34. 310 restore line,de:read a$
  35. 320 print "element is:  "a$:goto270
  36. 350 print"subroutine #1":return
  37. 650 print"subroutine #2":return
  38. 950 print"subroutine #3":return
  39.